Ինչպե՞ս անջատել կամ թույլ չտալ Excel- ում Save & Save As ընտրանքները:
Սովորաբար, երբ մենք կտտացնում ենք Save կամ Save As գործառույթը, աշխատանքային գրքում մեր փոփոխված տվյալները միանգամից կպահպանվեն: Բայց երբեմն, ձեր Excel ֆայլը չի թույլատրվում փոփոխել և պահպանել այլ օգտվողները, երբ նրանք կարդում են ֆայլը: Այս հոդվածը տրամադրում է VBA մեթոդը ՝ Excel- ում Save & Save As տարբերակները անջատելու համար:
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- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով
Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
Ավելի քան 300 հզոր հատկություններ, Աջակցում է Office / Excel 2007-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:
Thanks for your reply. Highly appreciated. I want you to guide me how to send a saved file to a friend who can open my file but only read or edit it, but can not not save the file in any folder. 1. For instance I have a saved file, which I want to send to "A" He opens the saved file but after opening he reads or makes any changes in my file, he can not save it at his end in any folder. 2. I have got code form internet which disallows to save. But in this case when I copy and paste the code, the file does not save. So I can not send the file to him 3. How can I send the file to Party "A" with a saved code in the hope he can not save the file.
Hello I am a fan of this website...I used to try the code. It works flawlessly. But it disables "Save option" too. I am not able to save the Excel sheet. What I need is to disable only the feature "Save As" I read the other user's comments too. ThisWorkbookSaved = True is not working for me as well. Could you please help? Thanks a lot for all your contributions.
Just to help whoever else reads this article looking for help with suppressing the save button I thought I'd place the answer down here as "Crystal" doesn't seem to be answering the question....
If you place the workbook in "Design Mode" and then hit SAVE it should work.
As TEE posted, how do we save the file with the macro in? It is not there when I reopen. I am also now getting a bug on the ThisWorkbookSaved = True bit.
The update to the code adds a sheet, but never actually checks whether there is a TRUE/FALSE value in that sheet. The update fixes nothing, it just creates a useless sheet within the workbook.
I think you forgot to do a check whether there is a TRUE/FALSE value on that sheet.
