संरक्षित शीट में सेल सामग्री को बदलने की कोशिश कर रहा है, लेकिन कैप्स लॉक चालू है, यह बताते हुए पासवर्ड गलती प्राप्त करें। कोड इस प्रकार है:

        'Change Best Peak Flow and Date Achieved

        ActiveSheet.Unprotect Password:=asthma
        If Range("R7").Value > Range("F7").Value Then
            Range("R7").Select
            Selection.Copy
            Range("F7").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Range("K7") = Date
            Application.CutCopyMode = False
            ActiveSheet.Protect Password:=asthma, DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub
0
Father Goose 22 अक्टूबर 2018, 10:13

1 उत्तर

सबसे बढ़िया उत्तर

आप इसे एक स्ट्रिंग शाब्दिक बनाने के लिए asthma के आसपास उद्धरण चिह्नों की एक जोड़ी डालना भूल गए हैं, इसलिए VBA इसे एक चर के नाम के रूप में व्याख्या करता है। चूंकि यह चर घोषित नहीं किया गया है, इसका मान एक खाली स्ट्रिंग है।

आप प्रत्येक मॉड्यूल की शुरुआत में Option Explicit डालकर इस तरह की त्रुटियों से बच सकते हैं, इसलिए जब आप एक अघोषित चर का उपयोग करने का प्रयास करते हैं तो VBA संपादक एक त्रुटि देगा।

2
jsheeran 22 अक्टूबर 2018, 07:30