Attribute VB_Name = "testsheetope3"
Sub ƒeƒXƒg()
    
    Dim sheet1 As Worksheet
    
    Set sheet1 = Worksheets("Sheet1")
    sheet1.Unprotect Password:="pass"
    
End Sub