alberto=59
00sabato 11 giugno 2022 14:52
Buongiorno a tutti
è possibile inserire una password al lancio di una macro ?
Grazie
L2018
00sabato 11 giugno 2022 15:41
alfrimpa
00sabato 11 giugno 2022 20:04
È una domanda troppo generica per poter rispondere.
Non si capisce l’utente cosa vuole fare.
L2018
00sabato 11 giugno 2022 20:19
andando per esclusione, poichè sarebbe un controsenso una password che impedisca il funzionamento della macro, resta l'ipotesi di una password che impedisca solo la visualizzazione del codice, così come ho letto nell'articolo, e provato.
altro non riesco a immaginare.
ma tanto....a che serve ? E' noto che le pass di Excel sono acqua
LEO
alfrimpa
00sabato 11 giugno 2022 20:30
Non resta che attendere chiarimenti da parte dell’utente.
alberto=59
00sabato 11 giugno 2022 20:44
Grazie e gentilissimi
probabilmente mi sono espresso male
nel mio foglio Excel (2007) utilizzo un bottone che avvia una macro;
volevo che alla pressione di quel bottone mi venisse visualizzato il msgbox con la richiesta di una password che consentisse o meno l'esecuzione della stessa.
Spero di essere stato più chiaro
Grazie
federico460
00sabato 11 giugno 2022 21:06
ciao
sostituisci Pulsante con la tua forma
Sub Pulsante1_Click()
Dim pw As String
pw = InputBox("Password")
If pw = "PIPPO" Then
Cells(1, 1) = 5 'tua macro
Else
MsgBox "password errata"
End If
End Sub
alberto=59
00domenica 12 giugno 2022 10:20
Ciao
non credo di avere compreso (io di Vba non sono per nulla ferrato)
ho creato il pulsante come mi hai descritto ma non riesco a collegare la mia macro
io ho una casella di testo con scritto "Ricalcola" alla quale è assegnata la mia macro
ho creato accanto ad essa il pulsante che mi hai detto
ma non riesco a collegarlo alla mia macro.
Scusami ma sono abbastanza ignorante in materia
Grazie
alberto=59
00domenica 12 giugno 2022 10:44
cosi di seguito
Sub Pulsante1_Click()
Dim pw As String
pw = InputBox("Password Macro")
If pw = "pippo" Then
Cells(1, 1) = 5 'Sub totale (come assegno la macro "totale" in questo punto ?
Else
MsgBox "errato"
End If
End Sub
tanimon
00domenica 12 giugno 2022 11:03
https://www.freeforumzone.com/d/11202105/-COLORE-BLUE-FONT-BOLD-ATTENZIONE-SCARICARE-o-INSERIRE-un-FILE-ed-ALTRO-VEDI-QUI-/discussione.aspx
forse ce la facciamo......
🤣🤣🤣
federico460
00domenica 12 giugno 2022 15:39
ciao
se hai gia la macro non vedo i problemi
Dim pw As String
pw = InputBox("Password Macro")
If pw = "pippo" Then
TUA MACRO
Else
MsgBox "errato"
End If
aggiungi le parti in rosso
alla tua macro ed è fatta
alberto=59
00lunedì 13 giugno 2022 10:20
Password per eseguire macro
Buongiorno
ok funziona perfettamente
Ti ringrazio
Non so come chiudere discussione.