取消保护Excel工作表中的单元格

时间:2018-10-22 07:13:22

标签: excel vba

试图更改受保护工作表中的单元格内容,但出现密码错误,说明Caps Lock已打开。  代码如下:

        '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

1 个答案:

答案 0 :(得分:2)

您已经忘记在#include <QtWidgets> int main(int argc, char *argv[]) { QApplication a(argc, argv); QTableView w; QStandardItemModel model(10, 10); w.setModel(&model); QAbstractButton *button = w.findChild<QAbstractButton *>(); if(button){ QVBoxLayout *lay = new QVBoxLayout(button); lay->setContentsMargins(0, 0, 0, 0); QLabel *label = new QLabel("№"); label->setContentsMargins(0, 0, 0, 0); lay->addWidget(label); } w.show(); return a.exec(); } 周围加上一对引号使它成为字符串文字,因此VBA会将其解释为变量的名称。由于尚未声明此变量,因此其值为空字符串。

您可以通过在每个模块的开头放置asthma来避免此类错误,因此当您尝试使用未声明的变量时,VBA编辑器将给出错误消息。