Bonjour,
Est ce qu'il est possible de completer encore les paramètres de protection pour autoriser l'utilisateur à changer la taille de la police des cellules sur une feuille protégée en VBA comme ci-dessous, ou autre solution
Sub Protect_sheet(sht As String)
' Protect_sheet Macro
'
' protection de la feuille active
' Macro recorded 06/09/2005 pour redimmensionner lignes et colonnes par user
If Worksheets(sht).ProtectContents = True Then
Sheets(sht).Protect Password:=pass, UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Else:
If sht = shpa Or sht = shparm Then
MsgBox 'sheet ' & sht & ' is unprotected, think to reprotect after updates'
End If
End If
End Sub
Merci
Est ce qu'il est possible de completer encore les paramètres de protection pour autoriser l'utilisateur à changer la taille de la police des cellules sur une feuille protégée en VBA comme ci-dessous, ou autre solution
Sub Protect_sheet(sht As String)
' Protect_sheet Macro
'
' protection de la feuille active
' Macro recorded 06/09/2005 pour redimmensionner lignes et colonnes par user
If Worksheets(sht).ProtectContents = True Then
Sheets(sht).Protect Password:=pass, UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Else:
If sht = shpa Or sht = shparm Then
MsgBox 'sheet ' & sht & ' is unprotected, think to reprotect after updates'
End If
End If
End Sub
Merci