Excel : ตัวอย่างโค้ดซ่อนทูลบาร์

ตัวอย่างโค้ดซ่อนทูลบาร์และล็อกการแก้ไขเพื่อใช้Excelเป็นApplicationเช่นSCADA

On Error Resume Next
If Application.CommandBars("Ribbon").Height >= 100 Then
    SendKeys "^{F1}"
End If

    With Application

           .DisplayFullScreen = True

           .CommandBars("Full Screen").Visible = False

           .CommandBars("Worksheet Menu Bar").Enabled = False
           

    End With
    
With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
End With

'******* Hide Sheet tabs ***************
'----- Fasle = Hide : True = Show ------
ActiveWindow.DisplayWorkbookTabs = False

Sheet1.ScrollArea = "A1:U30"
Sheet2.ScrollArea = "A1:U30"
Sheet3.ScrollArea = "A1:U30"
    
For Each wSheet In Worksheets
        wSheet.EnableSelection = xlNoSelection
        wSheet.Protect Password:="Secret", _
        UserInterFaceOnly:=True
        
Next wSheet

เมื่อต้องการใส่ข้อมูลในชีตที่ถูกล็อกไว้ให้ทำการUnprotectก่อน แล้วค่อยProtectอีกครั้งหลังจบ

Sheet2.Unprotect "Secret"

Sheet2.Range("A1").Value2 = 125
Sheet2.Range("B1").Value2 = "Test"
Sheet2.Protect Password:="Secret", UserInterFaceOnly:=True

จากตัวอย่างเป็นการUnprotectด้วยพาสเวิร์ด Secret และหลังจากใส่ข้อมูลในเซลล์A1และB1แล้วจึงProtectกลับไว้เหมือนเดิม

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s