Snasui Excel Forum

Code: Select all

Sub SaveToDatastore()
    ActiveSheet.Unprotect Password:="240130" '<==UnProtect
    Sheets("DataStore").Unprotect Password:="240130" '<==UnProtect
    If Range("A4") <> "" Then
        Sheets("Temp").Range("A2:G11") _
            .Resize(Sheets("Temp").Range("H1"), 7).Copy
        Sheets("DataStore").Range("A" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Sheets("Form").Range("B4:D13,C1,C2") _
            .SpecialCells(xlCellTypeConstants).ClearContents
        MsgBox ("บันทึกข้อมูบเรียบร้อยแล้ว")
    Else
        MsgBox ("คุณยังไม่เลือกสินค้า")
        Range("A17").Activate
    End If
    Sheets("DataStore").Protect Password:="240130" '<==Protect
    ActiveSheet.Protect Password:="240130" '<==Protect
End Sub

Code: Select all

Sub Report()
Sheets ("Report").Select
End Sub

Code: Select all

Sheets("Report").Visible = True

Code: Select all

Private Sub Worksheet_Activate()
    Dim wsh As Worksheet
    For Each whs In Worksheets
        If whs.Name <> "Supplier" Then
            whs.Visible = False
        End If
    Next
End Sub

Code: Select all

Sub CloseSup0()
Dim wsh As Worksheet
For Each wsh In Worksheets
        If wsh.Name <> "Supplier" Then
            wsh.Visible = True
        End If
    Next
    
Sheets("Home").Select
If Sheets("Home").Select Then
Sheets("Supplier").Visible = False
End If
End Sub

Code: Select all

ActiveSheet.Unprotect Password:="1234"

Code: Select all

ActiveSheet.Protect Password:="1234"