vbs写excel锁定(vb中怎么设置文本被锁定)

1. vb中怎么设置文本被锁定

选 中被锁定的单元格然后右键格式，解除锁定……如果是因为有密码的话我查啦一下……一、按ALT+F11 打开VB编辑器二、双击左边靠上的【工程资源管理器】中的【Microsoft Excel 对象】中的ThisWorkbook(如果找不到【工程资源管理器】请按CTRL+R)，在右边的代码窗口贴入下面的代码：

（根据实际情况按代码说明修改a、b的值，""中的内容）Sub 强行复制()'修改以下两行""中的工作表名字Dim a As String: a = "Sheet1" '修改成你需要复制的表名Dim b As String: b = "Sheet2" '修改成粘贴的空白表名'以下不需要修改Sheets(a).Cells.CopySheets(b).Range("A1").SelectActiveSheet.PasteEnd Sub三、回到EXCEL表，运行菜单 【工具】－【宏】－【宏】，选择 强行复制 这条宏，然后按执行。

四、假如有提示说宏的安全性被限制此类的信息，请在工具栏－【宏】－【安全性】里面把【安全级】设置为【中】。

2. vb锁定控件

选择菜单项“工程”并单击子选项“部件”，将显示“部件”对话框，在空间里面找到“Microsoft Windows Common Controls 6.0”选项，在前面打勾，点击确定。

这样就会将“状态栏”和“工具栏”之类的控件添加到工具箱里面。

然后再工具箱里面找有两个“小凹陷(很像状态栏的样子)“的就是了，它的英文名字statusbar，双击即添加进去。

右键点击该控件,选"属性",可设置其外观,窗格数,字体及图片

通过代码可改变状态栏中的显示内容

3. vb文本框设置文本被锁定

1.首先打开Excel表，然后点击【开发工具-VB编辑器】

2.打开VB编辑器，点击【插入-模块】

3.双击刚才创建的模块，然后输入

Sub 限时()

If Date > #2/28/2020# Then

End If

End Sub

表示如果当当下时间大于有效期时候

4.MsgBox "有效期已过"

表示如果超过有效期，那么当运行VBA时候就会弹出一个提示对话框，写着“有效期已过”

5.Exit Sub

则表示如果超过有效期就会自动退出VBA程序

6.最后当运行VBA时候，如果当下时间超过有效期，那么就会弹出提示对话框

4. vb中文本框锁定,运行时用户不可编辑

1，打开VB软件，在窗体上面添加两个文本框，如下图所示。

2，分别设置两个文本框的属性，清空文本框的内容，如下图所示。

3，在窗体上，添加两个命令按钮，如下图所示。

4，分别设置两个文本框的属性，分别命名为“左”、“右”，如下图所示。

5，双击名称为“左”的命令按钮，编辑其代码，如下图所示。

6，双击名称为“右”的命令按钮，编辑其代码，如下图所示。

7，运行程序，点击命令按钮，观察文本框中的焦点变化（为了方便观看，先点击“右”命令按钮，再点击“左”命令按钮）。

5. vb锁定文本编辑

删除按键有两个，DEL和BACKSPACE，区别在于：

1、键盘上的Delete是删除的用途；

2、当数字小键盘区NumLock灯亮时，delete和Del的用途是不一样的。Del则是输入点点的作用。

3、当数字小键盘区NumLock灯关时，Del就是删除的作用了。

解锁办法：

1、Delete键解锁

(1).运行GPEDIT.MSC

进入组策略,然后到用户配置,系统,Ctrl+Alt+Delete选项,把删除任务管理器设为禁用

(2)在excel中解除del按键功能方法：

打开 工具－宏－VB编辑器

MS EXCEL 对象中的

ThisWorkbook

输入代码

＝＝＝＝＝

Private Sub Workbook_Open()

Application.OnKey

"{DEL}", ""

Application.OnKey

"{DELETE}", ""

End Sub

＝＝＝＝＝

最后保存一次，重新打开的时候就可以了。

2、解锁：

此键无法解锁，如果不能用，就肯定是键盘坏了

6. vbs锁定窗口

可以利用变量改变按钮的可操作权限属性来实现解锁和锁定：

1、新建一个变量tag，BOOL型；

2、在工程画面上新插入一个按钮，命名：“解锁操作—允许”；

3、选中：“解锁操作—允许”设置左键单击处插入一段VBS或者C语言。让操作人员在单击此按钮后在对话框中输入正确的密码时改变tag的值；

4、选中你需要的锁定的按钮，设置可操作权限静态为否。动态对话框中选取变量tag，格式为布尔型。为1时真，为0时假。 变量名和按钮名可自定义 第三步的另一种实现方法： 可以另做一个密码输入画面（至少应有供密码输入的输入输出域和确定两个按钮，输入输出域要设置隐藏输入，单击确定时改变tag的值），并创建一个变量（此变量的格式要和输入输出域的格式一至，并连接到此输入输出域）控制此画面的显示和隐藏来达到，不需要编程知识。 这两种密码输入方法对付一般的操作人员应不成问题这里提供的是两种思路，仅供参考

7. vb文本框设置被锁定

在手机菜单栏中设置竖屏锁定就可以实验证码输起来

8. vba锁定单元格

Sub MacroTest()

With Selection

.Borders(xlDiagonalDown).LineStyle = xlNone

.Borders(xlDiagonalUp).LineStyle = xlNone

.Borders(xlEdgeLeft).LineStyle = xlNone

.Borders(xlEdgeTop).LineStyle = xlNone

.Borders(xlEdgeBottom).LineStyle = xlNone

.Borders(xlEdgeRight).LineStyle = xlNone

.Borders(xlInsideVertical).LineStyle = xlNone

.Borders(xlInsideHorizontal).LineStyle = xlNone

.Borders(xlDiagonalDown).LineStyle = xlNone

.Borders(xlDiagonalUp).LineStyle = xlNone

With .Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With .Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With .Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With .Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

.Borders(xlInsideVertical).LineStyle = xlNone

.Borders(xlInsideHorizontal).LineStyle = xlNone

.ClearContents

End With

End Sub

9. vb文本框锁定运行时不能编辑

联系农业银行信用卡客服中心电话，卡片背面有客服电话，400开头那个，磁条下面签名条那里有7个数字，后3位数字输错一定次数卡片会完全报废，但是能存钱进去，详询背面400客服电话

10. vb文本框锁定,运行时用户不可编辑

首先切换到窗体编辑模式，在右侧属性窗口选择你要的label的name,就会选择到label,然后把label的left属性设置为0，top属性设置为0，你就可以在窗体的左上角找到想要找的label了。

这个方法可以用于各种窗体的可见控件在被其他控件挡住找不到的情况，我自己写程序摸索的，呵呵