VBA అసురక్షిత షీట్ | ఎక్సెల్ షీట్‌ను అసురక్షితంగా ఉంచడానికి VBA కోడ్‌ను ఉపయోగించండి

ఎక్సెల్ VBA అసురక్షిత షీట్

వర్క్‌షీట్‌లను మార్చకుండా వినియోగదారు నుండి నిరోధించడానికి మేము మా వర్క్‌షీట్‌లను రక్షించే పరిస్థితులు ఉన్నాయి. వర్క్‌షీట్‌ను రక్షించేటప్పుడు మేము సాధారణంగా అదే పాస్‌వర్డ్‌ను నిర్వహిస్తాము. ఈ వ్యాసంలో, VBA కోడింగ్ ఉపయోగించి షీట్‌ను అసురక్షితంగా ఉంచే మార్గాన్ని మేము మీకు చూపుతాము.

ఉదాహరణలు

మీరు ఈ VBA అసురక్షిత షీట్ ఎక్సెల్ మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA అసురక్షిత షీట్ ఎక్సెల్ మూస

ఉదాహరణ # 1

షీట్‌ను రక్షించడం కంటే వాటిని రక్షించడం 99% సరళమైనది, వర్క్‌షీట్‌ను అసురక్షితంగా ఉంచడానికి మాకు పాస్‌వర్డ్ అవసరం.

మనం చేయవలసిన మొదటి విషయం ఏమిటంటే, మేము అసురక్షితంగా చేయబోయే వర్క్‌షీట్ పేరును పేర్కొనడం. ఉదాహరణకు, మీరు “సేల్స్ డేటా” అని పిలువబడే షీట్‌ను అసురక్షితంగా చూడాలనుకుంటే, మీ VBA కోడ్ ఇలా ఉండాలి.

వర్క్‌షీట్‌లు (“సేల్స్ డేటా”)

అప్పుడు అసురక్షిత పద్ధతిని యాక్సెస్ చేయండి.

పై చిత్రంలో మనం చూడగలిగినట్లుగా, మాకు సహాయపడటానికి ఎలాంటి ఇంటెల్లిసెన్స్ జాబితాను చూడలేము. ఇది కొత్త అభ్యాసకుడికి ఉద్యోగం కఠినతరం చేస్తుంది.

దీన్ని అధిగమించడానికి నేను సాధారణంగా VBA వేరియబుల్‌ను “వర్క్‌షీట్” గా ప్రకటించడంపై ఆధారపడతాను.

కోడ్:

 వర్క్‌షీట్ ఎండ్ సబ్‌గా సబ్ అన్‌ప్రెటెక్ట్_ఎక్సాంపుల్ 1 () డిమ్ డబ్ల్యుఎస్ 

ఇప్పుడు డిక్లేర్డ్ వేరియబుల్ ను సంబంధిత షీట్ కు సెట్ చేయండి.

కోడ్:

 సబ్ అన్‌ప్రెటెక్ట్_ఎక్సాంపుల్ 1 () డిమ్ డబ్ల్యుఎస్ వర్క్‌షీట్ సెట్‌గా Ws = వర్క్‌షీట్లు ("సేల్స్ డేటా") ఎండ్ సబ్ 

డిక్లేర్డ్ వేరియబుల్ యొక్క అన్ని లక్షణాలు మరియు పద్ధతులకు ప్రాప్యత చేయడానికి ఇప్పుడు వేరియబుల్ ఉపయోగించండి.

పై చిత్రంలో మీరు చూడగలిగినట్లుగా మేము అన్ని లక్షణాలను మరియు పద్ధతులను యాక్సెస్ చేయవచ్చు. ఇంటెల్లిసెన్స్ జాబితా నుండి “అసురక్షిత” పద్ధతిని ఎంచుకోండి.

షీట్‌ను అసురక్షితంగా ఉంచమని పాస్‌వర్డ్‌ను అడుగుతోంది. నేను పాస్వర్డ్ను "ఎక్సెల్ @ 1234" గా సెట్ చేసాను, కాబట్టి నేను పాస్వర్డ్ను అదే విధంగా సరఫరా చేస్తాను.

ఇది “సేల్స్ డేటా” అని పిలువబడే వర్క్‌షీట్‌ను అసురక్షితంగా చేస్తుంది.

కోడ్:

 ఉప అన్‌ప్రెటెక్ట్_ఎక్సాంపుల్ 1 () మసకబారిన Ws వర్క్‌షీట్ సెట్‌గా Ws = వర్క్‌షీట్లు ("సేల్స్ డేటా") Ws. 

పాస్‌వర్డ్ లేకపోతే మనం “అసురక్షిత” పద్ధతిని ఉపయోగించాలి మరియు “పాస్‌వర్డ్” పరామితిని విస్మరించాలి.

కోడ్:

 ఉప అన్‌ప్రెటెక్ట్_ఎక్సాంపుల్ 1 () మసకబారిన Ws వర్క్‌షీట్ సెట్‌గా Ws = వర్క్‌షీట్లు ("సేల్స్ డేటా") 'మీ అవసరానికి అనుగుణంగా వర్క్‌షీట్ పేరును మార్చండి Ws. 

ఏదైనా పాస్‌వర్డ్ ఉంటే, మనం పాస్‌వర్డ్‌ను డబుల్ కోట్స్‌లో నమోదు చేయాలి. పాస్వర్డ్ కేస్ సెన్సిటివ్ కాబట్టి వాటిని జాగ్రత్తగా గుర్తుంచుకోండి.

ఉదాహరణ # 2 - కేవలం ఒక క్లిక్‌తో అన్ని ఎక్సెల్ షీట్‌లను అసురక్షితంగా ఉంచండి

నిర్దిష్ట వర్క్‌షీట్‌ను ఎలా అసురక్షితంగా ఉంచాలో చూశాము. మీకు చాలా వర్క్‌షీట్‌లు ఉన్నాయని g హించుకోండి మరియు అన్ని వర్క్‌షీట్‌లు ఒకే పాస్‌వర్డ్‌తో రక్షించబడతాయి, అప్పుడు మేము ప్రతి వర్క్‌షీట్‌కు విడిగా కోడ్‌లను వ్రాయలేము.

ఈ సందర్భాలలో, వర్క్‌షీట్ ఆబ్జెక్ట్ సేకరణ ద్వారా లూప్ చేయడానికి మరియు వాటిని సులభంగా అసురక్షితంగా ఉంచడానికి మేము లూప్‌లను ఉపయోగించాలి.

క్రింద ఉన్న కోడ్ అన్ని వర్క్‌షీట్‌ల ద్వారా లూప్ అవుతుంది మరియు షీట్‌ను అసురక్షితంగా చేస్తుంది.

కోడ్:

 ActiveWorkbook.Worksheets Ws.Unprotect Password: = "Excel @ 1234" 'పాస్‌వర్డ్‌ను రక్షించేటప్పుడు మీరు చెప్పినట్లుగా మార్చండి. తదుపరి Ws ఎండ్ సబ్ 

ఉదాహరణ # 3 - ప్రత్యేక పరిస్థితులు

పరిస్థితి 1: సరఫరా చేసిన పాస్‌వర్డ్ తప్పు అయినప్పుడు ఎప్పుడైనా ined హించుకోండి. సరఫరా చేసిన పాస్‌వర్డ్ తప్పు అయినప్పుడు మనకు లభిస్తుంది 1004: రన్ టైమ్ లోపం.

ఈ లోపాలను పరిష్కరించడానికి మనం “ఆన్ ఎర్రర్ గోటో లేబుల్” ఎంపికను ఉపయోగించవచ్చు. క్రింద కోడ్ అదే ఉదాహరణ.

కోడ్:

 యాక్టివ్‌వర్క్‌బుక్‌లోని ప్రతి డబ్ల్యుఎస్‌కి వర్క్‌షీట్‌గా సబ్ అన్‌ప్రెటెక్ట్_ఎక్సాంపుల్. వర్క్‌షీట్‌లు లోపంపై గోటో ఎర్రర్‌మెసేజ్ డబ్ల్యుఎస్. లోపం: MsgBox "తప్పు పాస్‌వర్డ్" తదుపరి Ws ముగింపు ఉప 

పై కోడ్ “తప్పు పాస్‌వర్డ్” అని చెప్పే మంచి సందేశ పెట్టెను చూపుతుంది.

పరిస్థితి 2: పాస్వర్డ్ లేకుండా షీట్ రక్షించబడినప్పుడు మరియు మీరు యాదృచ్ఛిక పాస్వర్డ్ను సరఫరా చేస్తే, అది ఎలాంటి లోపాలను చూపించకుండా వర్క్‌షీట్‌ను అసురక్షితంగా చేస్తుంది.

పరిస్థితి 3: షీట్ పాస్‌వర్డ్ ద్వారా రక్షించబడినప్పుడు, కానీ మీరు ఏదైనా పాస్‌వర్డ్‌ను సరఫరా చేయకపోతే, పాస్‌వర్డ్‌ను నమోదు చేయడానికి VBA పాస్‌వర్డ్ ఇన్‌పుట్ బాక్స్‌గా పాపప్ అవుతుంది.

పై ఇన్‌పుట్ బాక్స్‌లో, వర్క్‌షీట్‌ను అసురక్షితంగా ఉంచడానికి మేము మా పాస్‌వర్డ్‌ను నమోదు చేయాలి. మీరు రద్దు చేయి బటన్‌పై క్లిక్ చేస్తే, అది ఏదైనా యూజర్ మెసేజ్ బాక్స్ ఉంటే తప్ప ఏమీ చూపించకుండా VBA ఉపప్రాసెసర్ నుండి నిష్క్రమిస్తుంది.