ActiveWindow.Visible = False
Résolu
pijaku
Messages postés
12263
Date d'inscription
Statut
Modérateur
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Merci de m'aider pour le problème suivant :
J'essaie de travailler en VBA sur un classeur que je souhaite inaccessible à l'utilisateur. Ce dernier "naviguera" entre des UserForm. Je tente donc l'utilisation de : ActiveWindow.Visible = False qui me "masque" tout mon classeur. C'est super sauf que je dois "sélectionner" des cellules de mon classeur et c'est impossible. Voici une partie du code qui bloque :
Private Sub CommandButton1_Click()
Dim result As String
Dim cpt As Integer
Application.ScreenUpdating = False
titi:
cpt = cpt + 1
If cpt = "3" Then
MsgBox ("Dernier essai!!!!!")
End If
If cpt = "4" Then
ActiveWorkbook.Save
ActiveWindow.Visible = False
Exit Sub
End If
result = InputBox("Indiquez votre code d'accès", "code")
If result = "" Then
ActiveWorkbook.Save
ActiveWindow.Visible = False
Exit Sub
End If
Worksheets("agents").Activate
ActiveSheet.Range("A2").Select
Do While ActiveCell <> result
If ActiveCell = "" Then
MsgBox ("Vous vous êtes trompés de code. Veuillez vérifier.")
GoTo titi
End If
ActiveCell.Offset(1, 0).Select
Loop
Sheets(result).Activate
ActiveSheet.Range("A2").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
If ActiveCell.Offset(-1, 0) = Date Then
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Value = CDate(Date)
End If
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = Format(Time, "HH:MM")
Sheets("agents").Deactivate
Sheets(result).Deactivate
pointagesjour.Show
ActiveWorkbook.Save
ActiveWindow.Visible = False
End Sub
il bloque sur la ligne : Worksheets("agents").Activate et me dit :
erreur d'exécution '1004' :
la méthode 'worsheets' de l'objet '_global' a échoué
.....................................................................................
Merci de m'aider pour le problème suivant :
J'essaie de travailler en VBA sur un classeur que je souhaite inaccessible à l'utilisateur. Ce dernier "naviguera" entre des UserForm. Je tente donc l'utilisation de : ActiveWindow.Visible = False qui me "masque" tout mon classeur. C'est super sauf que je dois "sélectionner" des cellules de mon classeur et c'est impossible. Voici une partie du code qui bloque :
Private Sub CommandButton1_Click()
Dim result As String
Dim cpt As Integer
Application.ScreenUpdating = False
titi:
cpt = cpt + 1
If cpt = "3" Then
MsgBox ("Dernier essai!!!!!")
End If
If cpt = "4" Then
ActiveWorkbook.Save
ActiveWindow.Visible = False
Exit Sub
End If
result = InputBox("Indiquez votre code d'accès", "code")
If result = "" Then
ActiveWorkbook.Save
ActiveWindow.Visible = False
Exit Sub
End If
Worksheets("agents").Activate
ActiveSheet.Range("A2").Select
Do While ActiveCell <> result
If ActiveCell = "" Then
MsgBox ("Vous vous êtes trompés de code. Veuillez vérifier.")
GoTo titi
End If
ActiveCell.Offset(1, 0).Select
Loop
Sheets(result).Activate
ActiveSheet.Range("A2").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
If ActiveCell.Offset(-1, 0) = Date Then
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Value = CDate(Date)
End If
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = Format(Time, "HH:MM")
Sheets("agents").Deactivate
Sheets(result).Deactivate
pointagesjour.Show
ActiveWorkbook.Save
ActiveWindow.Visible = False
End Sub
il bloque sur la ligne : Worksheets("agents").Activate et me dit :
erreur d'exécution '1004' :
la méthode 'worsheets' de l'objet '_global' a échoué
.....................................................................................
A voir également:
- Bios reporting failed get charge status returns false
- Pile bios - Guide
- Tray status - Télécharger - Divers Utilitaires
- Mot de passe bios perdu - Guide
- Get data back - Télécharger - Récupération de données
- Usb device over current status detected ✓ - Forum Windows