Ինչպե՞ս անջատել կամ թույլ չտալ Excel- ում Save & Save As ընտրանքները:
Սովորաբար, երբ մենք կտտացնում ենք Save կամ Save As գործառույթը, աշխատանքային գրքում մեր փոփոխված տվյալները միանգամից կպահպանվեն: Բայց երբեմն, ձեր Excel ֆայլը չի թույլատրվում փոփոխել և պահպանել այլ օգտվողները, երբ նրանք կարդում են ֆայլը: Այս հոդվածը տրամադրում է VBA մեթոդը ՝ Excel- ում Save & Save As տարբերակները անջատելու համար:
Անջատեք Save & Save As ընտրանքները VBA կոդով
Անջատեք Save & Save As ընտրանքները VBA կոդով
Excel- ում Save & Save As տարբերակները անջատելու համար կարող եք գործարկել ստորև նշված VBA կոդը:
1. Աշխատանքային գրքում անհրաժեշտ է անջատել Save & Save As գործառույթները, սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս գործառույթը ձախ շարքում, պատճենեք և կպցրեք ներքևի VBA 1-ը Code պատուհանում, ապա կտտացրեք այն Փրկել կոճակ Տեսեք,
VBA 1. Excel- ում անջատեք Save & Save As ընտրանքները
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Բացման մեջ Պահել As պատուհանը, ընտրեք թղթապանակ աշխատանքային գիրքը փրկելու համար, անվանեք աշխատանքային գիրքը, ինչպես ձեզ հարկավոր է և ընտրեք Excel մակրոներով աշխատունակ գիրք - ից Պահել որպես տիպ բացվող ցուցակը և վերջապես կտտացրեք այն Փրկել կոճակը:
4. Այժմ պատճենեք և տեղադրեք ներքևի VBA 2 – ը ներդիրում Այս գործառույթը ծածկագրի պատուհան: Տեսեք նկարը
VBA 2. Excel- ում անջատեք Save & Save As ընտրանքները
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. Սեղմեք Փրկել կոդը ՝ կոդը պահելու համար, այնուհետև փակեք աշխատանքային գիրքը:
Աշխատանքային գիրքը պահվել է որպես Excel մակրոէլեկտիվ աշխատագիրք հետ Փրկել և Պահել As գործառույթներն անջատված են:
ՆշումԿարծես թե փոփոխությունները պահվում են ընթացիկ աշխատաթերթում ամեն անգամ, երբ աշխատանքային գիրքը փոփոխում և պահում եք: Բայց աշխատանքային գիրքը փակելուց և վերաբացելուց հետո կիմանաք, որ փոփոխությունները չհաջողվեց պահպանել:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: