Kako onemogočiti ali ne dovoliti možnosti Shrani in shrani kot v Excelu?
Ko kliknemo funkcijo Shrani ali Shrani kot, se običajno spremenjeni podatki v delovnem zvezku shranijo hkrati. Toda včasih drugi uporabniki, ko preberejo datoteko, ne morejo spreminjati in shraniti vaše datoteke Excel. V tem članku je opisana metoda VBA za onemogočanje možnosti Shrani in shrani kot v Excelu.
Onemogočite možnosti Shrani in shrani kot s kodo VBA
Onemogočite možnosti Shrani in shrani kot s kodo VBA
Zaženete lahko spodnjo kodo VBA, da onemogočite možnosti Shrani in shrani kot v Excelu.
1. V delovnem zvezku morate onemogočiti funkcije Shrani in shrani kot, pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Ta delovni zvezek v levo vrstico kopirajte in prilepite spodnji VBA 1 v okno Code in kliknite na Shrani . Oglejte si posnetek zaslona:
VBA 1: onemogočite možnosti Shrani in shrani kot v Excelu
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Na odprtju Shrani kot izberite mapo, v katero želite shraniti delovni zvezek, poimenujte delovni zvezek, kot ga potrebujete, in izberite Excelov delovni zvezek z omogočeno makro Iz Shrani kot vrsto spustnega seznama in na koncu kliknite Shrani gumb.
4. Zdaj kopirajte in prilepite spodnji VBA 2 v Ta delovni zvezek okno kode. Oglejte si posnetek zaslona.
VBA 2: onemogočite možnosti Shrani in shrani kot v Excelu
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub
5. Kliknite Shrani , da shranite kodo in nato zaprite delovni zvezek.
Delovni zvezek je bil shranjen kot Excelov makro omogočen delovni zvezek z Shrani in Shrani kot funkcije onemogočene.
Opombe: Zdi se, da se spremembe shranijo v trenutni delovni list vsakič, ko spremenite in shranite delovni zvezek. Toda po zaprtju in ponovnem odpiranju delovnega zvezka boste ugotovili, da sprememb ni bilo mogoče shraniti.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!