牛牛美文 经典散文 形容精神不佳,状态不好的成语或四字词语也可以?
2021-05-18 01:36 星期二

形容精神不佳,状态不好的成语或四字词语也可以?

【萎靡不振】萎靡:颓丧。形容精神不振,意志消沉。

形容精神不佳,状态不好的成语或四字词语也可以?

【无精打采】采:兴致。精:精神。形容精神不振,提不起劲头。

【有气无力】形容说话声音微弱,做事精神不振,精神疲惫,没有力气,也形容体弱无力。

【垂头丧气】垂头:耷拉着脑袋;丧气:神情沮丧。形容因失败或不顺利而情绪低落、萎蘼不振的样子。

扩展资料成语是汉语词汇中定型的词。成语,众人皆说,成之于语,故成语。成语多为四字,亦有三字,五字甚至七字以上。成语是中国传统文化的一大特色,有固定的结构形式和固定的说法,表示一定的意义,在语句中是作为一个整体来应用的,承担主语、宾语、定语等成分。

成语有很大一部分是从古代相承沿用下来的,它代表了一个故事或者典故。有些成语本就是一个微型的句子。 成语又是一种现成的话,跟习用语、谚语相近,但是也略有区别。成语是中华文化中一颗璀璨的明珠。

成语的结构是多种多样的,上面只是简单举例的性质。成语在语言表达中有生动简洁、 形象鲜明的作用。它的本身就有不少比喻和对比以及加重的措辞方法。如“阳奉阴违”、“外强中干”、“五光十色”、“一知半解”、“七嘴八舌”、“患得患失”、“不寒而栗”等各有妙用。因为成语有多种意义,所以文学家对成语的运用都非常注意。

破解EXCEL2007工作簿保护

在日常工作中,用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,有时从网上下载的Excel格式的小程序,想修改,但是作者加了工作表保护密码,只要按照以下步骤操作,Excel工作表保护密码瞬间即破!

1、打开您需要破解保护密码的Excel文件;

2、依次点击菜单栏上的工具—宏—-录制新宏,输入宏名字如:aa;

3、停止录制(这样得到一个空宏);

4、依次点击菜单栏上的工具—宏—-宏,选aa,点编辑按钮;

5、删除窗口中的所有字符(只有几个),替换为下面的内容;

Option Explicit

Public Sub AllInternalPasswords()

\’ Breaks worksheet and workbook structure passwords. Bob McCormick

\’ probably originator of base code algorithm modified for coverage

\’ of workbook structure / windows passwords and for multiple passwords

\’

\’ Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

\’ Modified 2003-Apr-04 by JEM: All msgs to constants, and

\’ eliminate one Exit Sub (Version 1.1.1)

\’ Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

\”Adapted from Bob McCormick base code by\” & _

\”Norman Harker and JE McGimpsey\”

Const HEADER As String = \”AllInternalPasswords User Message\”

Const VERSION As String = DBLSPACE & \”Version 1.1.1 2003-Apr-04\”

Const REPBACK As String = DBLSPACE & \”Please report failure \” & _

\”to the microsoft.public.excel.programming newsgroup.\”

Const ALLCLEAR As String = DBLSPACE & \”The workbook should \” & _

\”now be free of all password protection, so make sure you:\” & _

DBLSPACE & \”SAVE IT NOW!\” & DBLSPACE & \”and also\” & _

DBLSPACE & \”BACKUP!, BACKUP!!, BACKUP!!!\” & _

DBLSPACE & \”Also, remember that the password was \” & _

\”put there for a reason. Don\’t stuff up crucial formulas \” & _

\”or data.\” & DBLSPACE & \”Access and use of some data \” & _

\”may be an offense. If in doubt, don\’t.\”

Const MSGNOPWORDS1 As String = \”There were no passwords on \” & _

\”sheets, or workbook structure or windows.\” & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = \”There was no protection to \” & _

\”workbook structure or windows.\” & DBLSPACE & _

\”Proceeding to unprotect sheets.\” & AUTHORS & VERSION

Const MSGTAKETIME As String = \”After pressing OK button this \” & _

\”will take some time.\” & DBLSPACE & \”Amount of time \” & _

\”depends on how many different passwords, the \” & _

\”passwords, and your computer\’s specification.\” & DBLSPACE & _

\”Just be patient! Make me a coffee!\” & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = \”You had a Worksheet \” & _

\”Structure or Windows Password set.\” & DBLSPACE & _

\”The password found was: \” & DBLSPACE & \”$$\” & DBLSPACE & _

\”Note it down for potential future use in other workbooks by \” & _

\”the same person who set this password.\” & DBLSPACE & _

\”Now to check and clear other passwords.\” & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = \”You had a Worksheet \” & _

\”password set.\” & DBLSPACE & \”The password found was: \” & _

DBLSPACE & \”$$\” & DBLSPACE & \”Note it down for potential \” & _

\”future use in other workbooks by same person who \” & _

\”set this password.\” & DBLSPACE & \”Now to check and clear \” & _

\”other passwords.\” & AUTHORS & VERSION

Const MSGONLYONE As String = \”Only structure / windows \” & _

\”protected with the password that was just found.\” & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do \’dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If .ProtectStructure = False And _

.ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

\”$$\”, PWord1), vbInformation, HEADER

Exit Do \’Bypass all for…nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

\’Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

\’Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do \’Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

\”$$\”, PWord1), vbInformation, HEADER

\’leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do \’Bypass all for…nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

End Sub

6、关闭编辑窗口;

7、依次点击菜单栏上的工具—宏—–宏,选AllInternalPasswords,运行,确定两次;

等一会,再点击确定。没有密码了!

本文来自网络,不代表牛牛美文立场,转载请注明出处:http://www.66lhsq.com/jingdiansanwen/4186.html

与世长辞令人心痛的句子?(与世长辞的句子)

耐人寻味的精辟语录,句句入心,醒悟人生

联系我们

联系我们

在线咨询: QQ交谈

工作时间:周一至周五,9:00-17:30,节假日休息

返回顶部