如何用vb给excel加密(怎么给excel加密?)

1. 怎么给excel加密?

在win7中，以Excel2007为例，可参考以下步骤为表格设置密码：

1、点击菜单栏“文件”。

2、点选“另存为”选项弹出保存设置界面。

3、点击“工具”按扭，在工具下拉列表框中选择“常规选项”。较低版本的EXCEL直接是“选项”按扭。

4、在“常规选项”界面，分别设置“打开权限密码”与“修改权限密码”。

5、设置密码后，并勾选“只读”，点击“确定”后会弹出一个确认密码的对话框。

6、再次输入密码，与“打开权限密码”相同。点击确认后，会再弹出“重新输入修改权限密码”，再次输入与之前修改权限的密码相同的密码之后，点击确定关闭对话框。

7、点击保存按扭保存工作表。

8、此时，找到保存目录，找到该工作表，打开工作表后就会出现要求输入密码的对话框了。

2. vb程序加密

mima = "123" i = 0 do if i >= 3 then wscript.quit a = inputbox("请输入密码" & vbcrlf & "您还有" & 3 - i & "次机会") if a = false then wscript.quit i = i + 1 loop until a = mima msgbox "密码正确" 上面的代码可以实现你要的功能，但密码一眼就能看见，可以使用下面的脚本代码进行加密。 Option Explicit Dim se, fso Dim argv, file, str Set se = CreateObject("Scripting.Encoder"

) Set fso = CreateObject("Scripting.FilesystemObject") For Each argv In WScript.Arguments Set file = fso.OpenTextFile(argv) str = file.ReadAll file.Close str = se.EncodeScriptFile(".vbs", str, 0 , "") argv = Left(argv, Len(argv)-3) & ".vbe" Set file = fso.OpenTextFile(argv, 2, True) file.Write str file.Close Next MsgBox "OK", vbInformation 最后生成的文件可以下载附件。要破解就有一定难度

3. vb加密文件

1.

打开电脑上,想要设置属性的word文档。

2.

成功打开想要设置密码的word文档后,点击文件。

3.

在弹出的文件菜单中,点击文档加密。

4.

在弹出的文档加密菜单中,点击属性。

1.

打开电脑上,想要设置属性的word文档。

2.

成功打开想要设置密码的word文档后,点击文件。

3.

在弹出的文件菜单中,点击文档加密。

4.

在弹出的文档加密菜单中,点击属性。。。

1.

打开电脑上,想要设置属性的word文档。

2.

成功打开想要设置密码的word文档后,点击文件。

3.

在弹出的文件菜单中,点击文档加密。

4.

在弹出的文档加密菜单中,点击属性。

4. excel vb 加密

先对选中单元格所处的列号进行判断，再添加对应代码。如不限制4、5这两列：

5. vb加密算法

比较简单，用程序将文件名修改，例如修改为原文件夹名.{f456782-4c8b-57ff-00dd00786f6sw}，即可，如果要解密，需要使用Winrar.exe解密。具体：在一个窗体添加DriveListBox控件一个，DirListBox控件一个，二个按钮控件，按钮分别是“加密”和“退出”。主要代码如下：

PrivateSubCommand2_Click()NameDir1.List(Dir1.ListIndex)AsDir1.List(Dir1.ListIndex)&".{f456782-4c8b-57ff-00dd00786f6sw}"EndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub

6. vb加密解密

把文本框的passwordchar属性设置为"*" 可以在属性窗口直接设置，也可以在程序中使用代码设置。 Private Sub Form_Load() Text1.PasswordChar = "*" End Sub

7. vb加密程序代码

根据楼上的朋友所说的，如果路径改变会造成打不开的、 你可以试试这个、 Private Sub Command1_Click() Shell App.Path & "\文件夹\文件名.exe" End Sub 把你要执行的文件EXE和VB文件放到同一个文件夹内、 对于这个方法只能用于一些功能（所执行的EXE）对于要执行系统文件的功能最好是用实际路径！这样你的文件夹打包不可能也带着系统里面所需要的功能吧、 希望对你有帮助！

8. vbs如何加密

将vbs加密后，就必须把后缀名改为vbe，否则不能运行。这里有一个vbs加解密工具，用法：screnc 要加密的vbs.vbs 加密后的vbe的名字.vbe scrdec 要解密的vbe.vbe 解密后的vbs的名字.vbs你自己去试一下。

9. vb打开带密码的excel

VB操作EXCEL

全面控制 Excel

首先创建 Excel 对象，使用ComObj:

Dim ExcelID as Excel.Application

Set ExcelID as new Excel.Application

1) 显示当前窗口：

ExcelID.Visible := True;

2) 更改 Excel 标题栏：

ExcelID.Caption := \'应用程序调用 Microsoft Excel\';

3) 添加新工作簿：

ExcelID.WorkBooks.Add;

4) 打开已存在的工作簿：

ExcelID.WorkBooks.Open( \'C:\\Excel\\Demo.xls\' );

5) 设置第2个工作表为活动工作表：

ExcelID.WorkSheets[2].Activate;

或 ExcelID.WorkSheets[ \'Sheet2\' ].Activate;

6) 给单元格赋值：

ExcelID.Cells[1,4].Value := \'第一行第四列\';

7) 设置指定列的宽度（单位：字符个数），以第一列为例：

ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9) 在第8行之前插入分页符：

ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;

参考代码：ActiveSheet.HPageBreaks(1).Location = Range("A22")

10) 在第8列之前删除分页符：

ExcelID.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度：

ExcelID.ActiveSheet.Range[ \'B3:D4\' ].Borders[2].Weight := 3;

1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / )

12) 清除第一行第四列单元格公式：

ExcelID.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性：

ExcelID.ActiveSheet.Rows[1].Font.Name := \'隶书\';

ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;

ExcelID.ActiveSheet.Rows[1].Font.Bold := True;

ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置：

a.页眉：

ExcelID.ActiveSheet.PageSetup.CenterHeader := \'报表演示\';

b.页脚：

ExcelID.ActiveSheet.PageSetup.CenterFooter := \'第&P页\';

c.页眉到顶端边距2cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

d.页脚到底端边距3cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;

e.顶边距2cm：

ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底边距2cm：

ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;

g.左边距2cm：

ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右边距2cm：

ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.页面水平居中：

ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;

j.页面垂直居中：

ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;

k.打印单元格网线：

ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷贝操作：

a.拷贝整个工作表：

ExcelID.ActiveSheet.Used.Range.Copy;

b.拷贝指定区域：

ExcelID.ActiveSheet.Range[ \'A1:E2\' ].Copy;

c.从A1位置开始粘贴：

ExcelID.ActiveSheet.Range.[ \'A1\' ].PasteSpecial;

d.从文件尾部开始粘贴：

ExcelID.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Insert;

b. ExcelID.ActiveSheet.Columns[1].Insert;

17) 删除一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Delete;

b. ExcelID.ActiveSheet.Columns[1].Delete;

18) 打印预览工作表：

ExcelID.ActiveSheet.PrintPreview;

19) 打印输出工作表：

ExcelID.ActiveSheet.PrintOut;

20) 工作表保存：

If not ExcelID.ActiveWorkBook.Saved then

ExcelID.ActiveSheet.PrintPreview

End if

21) 工作表另存为：

ExcelID.SaveAs( \'C:\\Excel\\Demo1.xls\' );

22) 放弃存盘：

ExcelID.ActiveWorkBook.Saved := True;

23) 关闭工作簿：

ExcelID.WorkBooks.Close;

24) 退出 Excel：

ExcelID.Quit;

25) 设置工作表密码:

ExcelID.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True

26) EXCEL的显示方式为最大化

ExcelID.Application.WindowState = xlMaximized

27) 工作薄显示方式为最大化

ExcelID.ActiveWindow.WindowState = xlMaximized

28) 设置打开默认工作薄数量

ExcelID.SheetsInNewWorkbook = 3

29) \'关闭时是否提示保存(true 保存；false 不保存)

ExcelID.DisplayAlerts = False

30) 设置拆分窗口,及固定行位置

ExcelID.ActiveWindow.SplitRow = 1

ExcelID.ActiveWindow.FreezePanes = True

31) 设置打印时固定打印内容

ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"

32) 设置打印标题

ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ""

33) 设置显示方式(分页方式显示)

ExcelID.ActiveWindow.View = xlPageBreakPreview

34) 设置显示比例

ExcelID.ActiveWindow.Zoom = 100

35) 让Excel 响应 DDE 请求

Ex.Application.IgnoreRemoteRequests = False

用VB操作EXCEL

Private Sub Command3_Click()

On Error GoTo err1

Dim i As Long

Dim j As Long

Dim objExl As Excel.Application \'声明对象变量

Me.MousePointer = 11 \'改变鼠标样式

Set objExl = New Excel.Application \'初始化对象变量

objExl.SheetsInNewWorkbook = 1 \'将新建的工作薄数量设为1

objExl.Workbooks.Add \'增加一个工作薄

objExl.Sheets(objExl.Sheets.Count).Name = "book1" \'修改工作薄名称

objExl.Sheets.Add , objExl.Sheets("book1") ‘增加第二个工作薄在第一个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book2"

objExl.Sheets.Add , objExl.Sheets("book2") ‘增加第三个工作薄在第二个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book3"

objExl.Sheets("book1").Select \'选中工作薄<book1>

For i = 1 To 50 \'循环写入数据

For j = 1 To 5

If i = 1 Then

objExl.Selection.NumberFormatLocal = "@" \'设置格式为文本

objExl.Cells(i, j) = " E " & i & j

Else

objExl.Cells(i, j) = i & j

End If

Next

Next

objExl.Rows("1:1").Select \'选中第一行

objExl.Selection.Font.Bold = True \'设为粗体

objExl.Selection.Font.Size = 24 \'设置字体大小

objExl.Cells.EntireColumn.AutoFit \'自动调整列宽

objExl.ActiveWindow.SplitRow = 1 \'拆分第一行

objExl.ActiveWindow. SplitColumn = 0 \'拆分列

objExl.ActiveWindow.FreezePanes = True \'固定拆分 objExl.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" \'设置打印固定行

objExl.ActiveSheet.PageSetup.PrintTitleColumns = "" \'打印标题 objExl.ActiveSheet.PageSetup.RightFooter = "打印时间: " & _

Format(Now, "yyyy年mm月dd日 hh:MM:ss")

objExl.ActiveWindow.View = xlPageBreakPreview \'设置显示方式

objExl.ActiveWindow.Zoom = 100 \'设置显示大小

objExl.ActiveSheet.PageSetup.Orientation = xlLandscape ‘设置打印方向(横向)

\'给工作表加密码

objExl.ActiveSheet.Protect "123", DrawingObjects:=True, _

Contents:=True, Scenarios:=True

objExl.Application.IgnoreRemoteRequests = False

objExl.Visible = True \'使EXCEL可见

objExl.Application.WindowState = xlMaximized \'EXCEL的显示方式为最大化

objExl.ActiveWindow.WindowState = xlMaximized \'工作薄显示方式为最大化

objExl.SheetsInNewWorkbook = 3 \'将默认新工作薄数量改回3个

Set objExl = Nothing \'清除对象

Me.MousePointer = 0 \'修改鼠标

Exit Sub

err1:

objExl.SheetsInNewWorkbook = 3

objExl.DisplayAlerts = False \'关闭时不提示保存

objExl.Quit \'关闭EXCEL

objExl.DisplayAlerts = True \'关闭时提示保存

Set objExl = Nothing

Me.MousePointer = 0

End Sub