Password per eseguire macro

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
alberto=59
00sabato 11 giugno 2022 14:52
Buongiorno a tutti
è possibile inserire una password al lancio di una macro ?
Grazie
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.
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 13:27.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com