ActiveSheet.protect

[mistralincoming]

bonsoir à toutes et tous,

est-ce que celles et ceux qui savent bien comment cela fonctionne peuvent m'envoyer des démos de macro avec cette fonction.

Je cherche en référence à mon message de ce matin à faire une macro qui me permette après saisie d'un mot de passe d'activer un lien hypertexte ou d'aller sur une feuille précise d'un classeur excel.

merci à vous

 

[Robert]

Re : ActiveSheet.protect

Bonsoir mistralincoming, bonsoir le forum,

Je ne comprends pas le rapport avec l'intitulé de ton post : ActiveSheet.protect.

 

[mistralincoming]

Re : ActiveSheet.protect

Bonsoir mistralincoming, bonsoir le forum,

Je ne comprends pas le rapport avec l'intitulé de ton post : ActiveSheet.protect.

bonsoir,

une personne du forum m'a conseillé pour ce que je voulais faire d'utiliser ce code dans ma macro!

 

[Robert]

Re : ActiveSheet.protect

Bonsoir mistralincoming. bonsoir le forum,

Elle a certainement eu raison mais il est difficile de t'aider avec si peu d'éléments. Un petit fichier en pièce jointe serait le bienvenu.

 

[mistralincoming]

Re : ActiveSheet.protect

voici un petit fichier exemple
merci à toi

 

[Robert]

Re : ActiveSheet.protect

Bonsoir mistralincoming, bonsoir le forum,

Je verrai les chose peut-être comme ça... Voir ton fichier modifié en pièce jointe. Mot de passe "toto".

 

[mistralincoming]

Re : ActiveSheet.protect

Robert
ça ne fonctionne pas, peux tu jeter un coup d'oeil stp
merci
Sub BOUTONCOMMANDE()
'
' BOUTONCOMMANDE Macro
' Macro enregistrée le 10/03/2008 par mistralincoming
'

Dim a As String
ActiveCell.Select
début:
a = InputBox("Mot de Passe", "fonctions avancées")
If a = "" Then Exit Sub
If UCase(a) = "123" Then
Sheets("ADMINISTRATEUR").Select
Exit Sub
Else
MsgBox "Mot de passe incorrect !"
GoTo début
End If
End Sub

 

[Robert]

Re : ActiveSheet.protect

Bonjour mistralincoming, bonjour le forum,

Oui, Ucase est une fonction qui transforme le texte en maujuscule...
Remplace :

If UCase(a) = "123" Then

par :

If CStr(a) = "123" Then