A
Anita
Guest
Bonjour à tout le forum,
je tourne en rond sur un test.
Je cherche à obliger d'accepter le lancement des macros (sinon affichage feuille1, le reste caché)
si les macros sont acceptés, il y a un test sur le pc utilisé, s'il ne correspond pas alors message 'pas les droits' etfermeture du classeur. Ci après mes vaines élucubrations...
Private Sub Workbook_Open()
Application.ScreenUpdating = False
If Application.UserName = 'p Dupond' Then
For Each Sh In Sheets
Sh.Visible = True
Next Sh
Sheets(1).Visible = xlVeryHidden
Else
For Each Sh In Sheets
Sh.Visible = xlVeryHidden
Next Sh
Sheets(1).Visible = True
End If
End Sub
Ca ne fonctionne pas, hélas.
Un grand merci pour votre aide et agréable journée à vous
je tourne en rond sur un test.
Je cherche à obliger d'accepter le lancement des macros (sinon affichage feuille1, le reste caché)
si les macros sont acceptés, il y a un test sur le pc utilisé, s'il ne correspond pas alors message 'pas les droits' etfermeture du classeur. Ci après mes vaines élucubrations...
Private Sub Workbook_Open()
Application.ScreenUpdating = False
If Application.UserName = 'p Dupond' Then
For Each Sh In Sheets
Sh.Visible = True
Next Sh
Sheets(1).Visible = xlVeryHidden
Else
For Each Sh In Sheets
Sh.Visible = xlVeryHidden
Next Sh
Sheets(1).Visible = True
End If
End Sub
Ca ne fonctionne pas, hélas.
Un grand merci pour votre aide et agréable journée à vous