XL 2019 Cellule verrouillée et feuille protégée

sersib · 10 Mai 2023

Bonjour,
J'ai une cellule verrouillée qui se renseigne par le biais d'un bouton avec une macro.
Quand je protège la feuille, la cellule ne se renseigne plus
Y'a t'il une solution ou astuce ?
Merci beaucoup.

Gégé-45550 · 10 Mai 2023

sersib à dit:
Merci @Gégé-45550 , je comprends mais je vois pas trop où et comment ?
La macro:

Private Sub CommandButton2_Click()
Dim nf As String
deb = "FC" & Right(Year(Now), 2) & Right(Month(Now) + 100, 2) & "-"
On Error Resume Next
canal = FreeFile
Open chemin & "C:\Test\num.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 7) = deb Then
nf = deb & Format(Val(Right(nf, 2) + 1), "00")
Else
nf = CStr(deb & "01")
End If
Open chemin & "C:\Test\num.txt" For Output As #canal
Print #canal, nf
Close #canal
Sheets("Test").[E4] = nf
End Sub

Re
NB : Pour insérer du code, c'est mieux d'utiliser la balise adéquate (</> ci-dessus)
Comme ça :

VB:

Private Sub CommandButton2_Click()

Dim nf As String

deb = "FC" & Right(Year(Now), 2)...

Gégé-45550 · 10 Mai 2023

sersib à dit:
Bonjour,
J'ai une cellule verrouillée qui se renseigne par le biais d'un bouton avec une macro.
Quand je protège la feuille, la cellule ne se renseigne plus
Y'a t'il une solution ou astuce ?
Merci beaucoup.

Bonjour,
La macro activée par le bouton doit :

Déprotéger la feuille (MaFeuille.Unprotect motdepasse)
Renseigner la cellule cible
Reprotéger la feuille (MaFeuille.Protect motdepasse)

Cordialement,

sersib · 10 Mai 2023

Gégé-45550 à dit:
Bonjour,
La macro activée par le bouton doit :

Déprotéger la feuille (MaFeuille.Unprotect motdepasse)

Renseigner la cellule cible

Reprotéger la feuille (MaFeuille.Protect motdepasse)

Cordialement,

Merci @Gégé-45550 , je comprends mais je vois pas trop où et comment ?
La macro:

Private Sub CommandButton2_Click()
Dim nf As String
deb = "FC" & Right(Year(Now), 2) & Right(Month(Now) + 100, 2) & "-"
On Error Resume Next
canal = FreeFile
Open chemin & "C:\Test\num.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 7) = deb Then
nf = deb & Format(Val(Right(nf, 2) + 1), "00")
Else
nf = CStr(deb & "01")
End If
Open chemin & "C:\Test\num.txt" For Output As #canal
Print #canal, nf
Close #canal
Sheets("Test").[E4] = nf
End Sub

Gégé-45550 · 10 Mai 2023

sersib à dit:
Merci @Gégé-45550 , je comprends mais je vois pas trop où et comment ?
La macro:

Private Sub CommandButton2_Click()
Dim nf As String
deb = "FC" & Right(Year(Now), 2) & Right(Month(Now) + 100, 2) & "-"
On Error Resume Next
canal = FreeFile
Open chemin & "C:\Test\num.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 7) = deb Then
nf = deb & Format(Val(Right(nf, 2) + 1), "00")
Else
nf = CStr(deb & "01")
End If
Open chemin & "C:\Test\num.txt" For Output As #canal
Print #canal, nf
Close #canal
Sheets("Test").[E4] = nf
End Sub

Re
NB : Pour insérer du code, c'est mieux d'utiliser la balise adéquate (</> ci-dessus)
Comme ça :

VB:

Private Sub CommandButton2_Click()

Dim nf As String

deb = "FC" & Right(Year(Now), 2) & Right(Month(Now) + 100, 2) & "-"

On Error Resume Next

canal = FreeFile

Open chemin & "C:\Test\num.txt" For Input As #canal

Input #canal, nf

Close #canal

If Left(nf, 7) = deb Then

nf = deb & Format(Val(Right(nf, 2) + 1), "00")

Else

nf = CStr(deb & "01")

End If

Open chemin & "C:\Test\num.txt" For Output As #canal

Print #canal, nf

Close #canal
Sheets("Test").Unprotect motdepasse ' <= c'est ici que ça se passe ; remplacer motdepasse par le vrai password
Sheets("Test").[E4] = nf
Sheets("Test").Protect motdepasse 'c'est ici que ça finit
End Sub

Cordialement,

sersib · 10 Mai 2023

Merci @Gégé-45550 ça fonctionne.
Ok pour la balise </> , c'est noté
Merci

Gégé-45550 · 10 Mai 2023

sersib à dit:
Merci @Gégé-45550 ça fonctionne.
Ok pour la balise </> , c'est noté
Merci

Si la réponse vous a convenu, merci de la taguer comme solution (Cliquer sur la coche verte dans le bandeau droit en face de la réponse).
Cordialement,

XL 2019 Cellule verrouillée et feuille protégée

sersib

XLDnaute Junior

Gégé-45550

Gégé-45550

XLDnaute Accro

sersib

XLDnaute Junior

Gégé-45550

XLDnaute Accro

sersib

XLDnaute Junior

Gégé-45550

XLDnaute Accro

Discussions similaires