Macros, kas ar paroli aizsargā pret saglabāšanu

Ievietoja: Sun @ 2012.06.05 21:24

Kaut kas nestrādā - help!
----------------------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Password = InputBox("Please input the password to save.", "Save")

If Password = "password" Then

Else

Cancel = True

MsgBox "You are not allowed to save this workbook.", vbOKOnly + vbInformation

End If
End Sub
-----------------------------------
neizpildās Then, netiek ņemta vērā parole

Komentāri:

#1 AndrisIT @ 2012.06.06 00:45

Jaunajiem offisiem skripti netiek izpildīti by default. Un vispār nahui tas tev vajadzīgs, tāpat tas sargās tikai pret galīgiem dauņiem, tas ir 90% datoru lietotāju.

#2 Faetons @ 2012.07.19 20:05

Sun,
vajag darīt tā:
2007 ofisam ir file/save tad ir tur ir poga tools, kur izkritošā sarakstā jāizvēlas general options.Tad atvērsies parolju uzstādīšanas dialogs.
Citām excela versijām ir līdzigi.

AndrisIT rakstīja:

Jaunajiem offisiem skripti netiek izpildīti by default. Un vispār nahui tas tev vajadzīgs, tāpat tas sargās tikai pret galīgiem dauņiem, tas ir 90% datoru lietotāju.

Varbūt cilvēks ir sataisījis komplicētu excela booku ar formulām un nevēlas lai kāds useris nejauši visu nesačakarē.
Uzlauzt excela paroli ar specsoftiem tiešām ir dažu minūšu jautājums.

#3 AndrisIT @ 2012.07.19 20:27

Kārtīgi dauņi ja nevar kaut ko sačakarēt tāpat tad palīgā ņem sviras mehānismu. Muļķiem dators nav jālieto!

Datuve

Mana Datuve

Forums

Ieskaties

Raksti

Lietotāji online

Macros, kas ar paroli aizsargā pret saglabāšanu

Komentāri: