Proteccion, Botones, macros y celdas

Primero antes que todo espero que estes bien, y como ves yo aca molestandote segun tus enseñanzas tengo la siguiente situacion:

Sub Botones_Comunes()
Select Case Range("A11").Value
Case 1
prnRange = 1
Case 2
prnRange = 2
Case 3
prnRange = 3
End Select

ActiveSheet.Outline.ShowLevels RowLevels:=prnRange

End Sub

esta macro esta asocuada a unos botones,, pero no puedo hacer que si la hoja esta protegida la desproteja y si no esta protegida que la proteja, dado deq ue tengo esta otra macro y me causa choque:

Sub proteger()
'

If Worksheets(Vital).ProtectContents = True Then
ActiveSheet.Unprotect
ActiveSheet.Shapes("Lock").Select 'resulta ser que el boton se llama Lock
Selection.Characters.Text = "Proteger Hoja"
Range("C27").Select
Else
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Shapes("Lock").Select 'resulta ser que el boton se llama Lock
Selection.Characters.Text = "Desproteger Hoja"
Range("E27").Select

End If

End Sub

como puedo hacer para que las dos aplicaciones funcionen??

y calro declare la variable: Dim prnRange As Integer

me podes dar una mano??

resulta ser que

Option Base 1
Const Vital = "P0-9"

por eso esa que coloco la intruccion
If Worksheets(Vital).ProtectContents = True Then

ademas porque asi lo pude ver en los archivos que trae excel, como plantillas, dado de que utilice aquel archivo que me encontre para quitarle la proteccion del VBA

mmmmmm que buena aclaracion, como todas las que me haces, muchas Gracias, un abrazo