VBA to greyout sheet

Question

Продолжая мой предыдущий вопрос! VBA to change the name of the Activex button

Я хотел бы оторвать лист до тех пор, пока пользователь не нажмет на кнопку включения. Так что это будет выглядеть удобным для пользователя, и он понимает, что ему нужно щелкнуть по кнопке inroder для редактирования.

Пожалуйста, предложите

Answer 1

Вы можете сделать две кнопки и связать их с чем-то вроде кода ниже. Определите форматирование заблокированных ячеек (я нахожу, что серый заполнение белым шрифтом является сугестривным). Ex.1 Ex.2

Sub Unprotect() 
    With Sheets("Sheet2") 
     .Shapes("Edit").Visible = False 
     .Shapes("Rounded Rectangle 2").Visible = True 
     .Unprotect 
     .Cells.ClearFormats 
    End With 
End Sub 

Sub Protect() 
    Sheets("Sheet2").Select 
    ActiveSheet.Shapes("Rounded Rectangle 2").Visible = False 
    ActiveSheet.Shapes("Edit").Visible = True 
    With Sheets("Sheet2").Cells 
     .Interior.Pattern = xlSolid 
     .Interior.PatternColorIndex = xlAutomatic 
     .Interior.ThemeColor = xlThemeColorDark1 
     .Interior.TintAndShade = -0.149998474074526 
     .Interior.PatternTintAndShade = 0 
     .Font.ThemeColor = xlThemeColorDark1 
     .Font.TintAndShade = 0 
    End With 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
End Sub