Bloquer une feuille hors condition
Loulou
-
Loulou -
Loulou -
Bonjour,
Je débute, et je souhaiterais verrouiller une feuille tant que l'ordinateur n'est pas connecté à internet, mais je ne sais pas vraiment comment procéder.
Merci pour votre aide.
Je débute, et je souhaiterais verrouiller une feuille tant que l'ordinateur n'est pas connecté à internet, mais je ne sais pas vraiment comment procéder.
Merci pour votre aide.
1 réponse
-
bonjour,
Mettre dans ThisWorkbook:
Option Explicit Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Public Function ConnectWeb() As Boolean ConnectWeb = IIf(InternetGetConnectedState(0&, 0&) = 1, True, False) End Function Private Sub Workbook_Open() If ConnectWeb = True Then 'MsgBox "Connectée" Sheets("Feuil1").Visible = True Else 'MsgBox "Deconnectée" Sheets("Feuil1").Visible = False End If End Sub
